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This program is written in PL/I and is 517 statements long. 
The complete program source text listing and instructions 
follow on the pages numbered 1 through 13. 


Statements may be keypunched anywhere on a card between 
columns 2 and 72 inclusive but, for readability, statements 
should begin in column 10 and statement labels should begin 
in column 2. Note that PL/I statements end with a semicolon 
and that statement labels end with a colon. Documentation 
comments take the form /* comment */ . Nested DO loops are 
indented beyond column 10 for readability. 


The IBM 0S/360 (370) job control language statements necessary 
to submit this program to the PL/I compiler (F) are as follows: 


//jooname JOB jobcard_information 
4, EXEC PLILFCLG 
/PLIL.«SYSIN DD * 


source deck goes here 
* 
//GO.SYSIN DD * 
data deck (card) goes here 
/* 


Once you have the program running properly, you may wish to 
save paper by substituting the // EXEC PLILFCLG card with 
the following card. 


// EXEC PLILFCLG, PARM.PL1L=‘NOSOURCE,NOATR,NOXREF* 


Note that all of the above JCL statements must begin in card 
column 1. The above job control language (JCL) statements 
invoke a standard cataloged JCI procedure. 


When running the PL/I program with the above JCL, one can 
expect the following compiler diagnostics. (warning codes) 
TEMO2271 , IEMO764I , IEM3898I1 


The IF THEN CALL internal procedure block structure of this 
PL/I program allows for easy program expansion, 


ALPHA: 


GETS: 


PROC OPTIONS(MAIN)¢ 


TPR II IK IT IR IR SK TOTTORI TOR BK TOTTI TOTO RISOTTO OO ITOK SII tt 


/* THIS PROGRAM IS WRITTEN IN PL/I FOR THE PL/I F COMPILER, */ 

/* THIS PROGRAM PRODUCES LONG HORIZONTAL SIGNS IN LARGE xf 

/* BLOCK LETTERS, x/ 

7* INPUT DATA SHOULD BEGIN IN COLUMN ONE OF THE DATA CARD, */ 

/* THE INPUT DATA MUST BE FOLLOWED BY A SEMICOLON TO STOP */ 

/* PROGRAM EXECUTION, «/ 

/* EXAMPLE eeeseMERRY CHRISTMAS; a/ 

/* TF A SEMICOLON DOES NOT FOLLOW THE INPUT DATA STATEMENT, */ 

7* MUCH PAPER MAY BE WASTED AT THE END OF THE SIGN BEFORE x/ 

/* THE END OF FILE IS REACHED, x/ 

7& THE VALID INPUT CHARACTERS ARE THE 26 ENGLISH ALAPHABET */ 

/* CHARACTERS AND THE BLANK, THE + IS USED AS EXPLAINED, x/ 

7* THE ¢ WILL. NOT APPEAR ON THE OUTPUT WALL BANNER SIGN, a/ 

/* THIS PROGRAM WRITTEN BY DAVID SLIGAR ®AKRAARARRKER ARR RS, 

7* COPYRIGHT 1977 BY DAVID SLIGAR i 8 tii ROR RIOR IIR IO Rik ato / 

7 IORI IOI ROI IOI IOI IO IO TOO TOO IA IATA IOI AA | 

DCL S CHAR(1)3 4x 8 IS INPUT SYMBOL */ 

OCL A(50) CHAR(100)3 7* A TS AN ARRAY INTO WHICH EACH */ 
7x OUTPUT SYMBOL TS LOADED AND THEN */ 
7x PRINTED FROM, */ 

OCL L FIXED BIN(16)3 7* L IS LINE COUNTER & SUBSCRIPT */ 


ON 
ON 


ENDFILEC(SYSIN) STOPS 
ENDPAGE(SYSPRINT)3 


GET EDIT (8S) (AC1))3 


IF 


1F 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


Ss' ' THEN DO; 
PUT SKIP(40)3 
GO TO GETS; 
ENDs 
a's! THEN STOP; 
Ss'A' THEN CALL AA; 
S='B' THEN CALL BBs 
S='C' THEN CALL CC3 
S='D' THEN CALL DD 
Ss'E* THEN CALL EES 
Ss'F* THEN CALL FFs 
S='G' THEN CALL GG; 


AA: 


IF SstH!' THEN CALL HH? 

IF Sst! THEN CALL IIs 

IF Sz'J' THEN CALL JJe 

IF Ss'K' THEN CALL KK? 

TF S='e’ THEN CALL LLe 

IF Ss'M' THEN CALL M3 

IF S='N' THEN CALL NNG 

IF S='D' THEN CALL O03 

IF s='P* THEN CALL PP; 

IF s='Q' THEN CALL QQ; 

IF S='R? THEN CALL RR# 

IF Se'S' THEN CALL SS 

IF Se'T' THEN CALL TT3 

IF Ss'U' THEN CALL UUs 

IF Ss'v! THEN CALL VV3 

IF Sz'w' THEN CALL WWS 

IF S='X' THEN CALL XX3 

IF ss'Y¥' THEN CALL YY3 

IF S='Z' THEN CALL ZZ3 

PROC; 7 INTERNAL PROCEDURE */ 

DO Lal TO 103 
ACLISCLOO)TATS 
END: 

DO L211 TO 403 
ACL)S(4O)! THECHSDTATTIC3O)" MEECISD IAS 
ENDS; 

DO L=4i 19 50% 
ACL)=C100) "Aly 


END? 

GO TO PUTS? 

END AA; 

PROC; /* INTERNAL PROCEDURE */ 


DO L=i TO 107 

A(L)=(100)'B' 

END? 
NO Lsii TO 403 

ACLIECISI'BELE C25)" "HPCASI IBLE CSOI" FPECL5) BS 
END; 


ACGiECL)' FHP CaSd Bit)! "bisa ' BT; 
ACHavz(2)' "PICS BVI)" "TECSOD' B's 
ACAZ)SCS)' THECAL)IBIIICS)! tbbCaso'Bts 
AC4ag ald)! "HICSS BIFIC7)!' "LiCdo) Bs 
AC45)5(5)' "PICS7TIIB'IEC9ID' "LECaa) Betyg 
AC46)=(6)!' 'HICSSIIB TEECL1)' PEECa2) BIS 
AC47)B(7)! "PIC33BITB FECA)! TLECGO) EBS: 
AC4A)3(08)' FLEC3LITBTTICIS)® "1bC3B8) BIG 
ACK49)S(9)! "TIC29)*BYIEC17)' THEC36) 9B 
ACSOI=ECLO)® TPIC27I BI ILIC19)D!' "TIC3a) Bs 
GO TO PUTS; 
END BBE 
CC3 PROC? 4* INTERNAL PROCEDURE x/ 

DO tat TO 103 

ACLJEC1O0) 'C'S 

END; 
OD L=li TO 503 

ACLISCISIIChIIC7O) "NCIS tC 


END? 
GO TO PUTS; 
END cC3 
DD: PROC3 7* INTERNAL PROCEDURE */ 


DO tel TO 103 

A(LJEC1OO)'D'S 

END; 
DO L=11 TO 403 

ACLIECISIID'VIC7TOI® "EEC15)'D's 
END? 
DCL DS CHAR(100) INIT((100)'D')3 
OCL (NeX) FIXED BIN(16)% Nee X2985 
DO L=41 TD 503% 

ACLJ=(100)" "3 

SUBSTRCA(L) +N, X) SSUBSTR(DS.1,X)3 7* PSEUDO VARTABLE */ 
NSN+13 

XSXees 

END? 

GO TO PUTS; 

END DD; 


EE: PROCS 7 INTERNAL PROCEDURE *«/ 
DO Ls1 TO 103 
ACLJSC100)'E's 
END; 
DU L=li 19 503 
ACLISCISITETENC2]5) MLICASDTEMEICSOI "TECISD IES 


END? 
GO TO PUTS; 
END EE; 
FFs PROCS /* INTERNAL PROCEDURE x*/ 


OO test TO 103 

ACLISCLOOI TFT: 

END; 
DO L=il TO 50; 

ACLI=(4O)' TVICISITFTLEC3O)' TPECISD IF NS 


END? 
GO TN PUTS$s 
END FF? 
GG3 PROC? 7* INTERNAL PROCEDURE. */ 


DO Lai TO 10% 
ACL)=(100)'G'S 
END? 

09 tsii TD 253 
ACLISCISDIGITIEIC7TOI® "HECASD I Gs 
END: 

DO L=a26 TO 40; 
ACLIZCISIIGHEL C25)" TVICISI'G'EEC3O)* "FECLSI'GS 
ENDs 

DO L=41 72 503 
ACLIZCSSIISTIEIC3OV! MPEGS) 'G's 


END$ 
GO TO PUTS; 
END GG3 
HH: PROC? 7* INTERNAL PROCEDURE */ 


DO Let TO 103 
ACLI=C100)'H'E 
END; 

DO Lait TD 403 


ACL)=(40)' THECASDTH'G 
END? 
00 L241 TO 50; 

ACL) =(100)'H'? 


END$ 
GO TO PuTss 
END HH 
PROC? 7* INTERNAL PROCEDURE */ 


DO L=1 TO 203 
ACLISCAISDITILICTOI® HENCASIIINS 
ENDS 

DO Ls21 TO 50; 

ACLISCLOO)TI NG 
ENDS 

OO Ls31 T9 503 
ACLISCISITITEITC7TOIY THVCISDTIT 
END$ 


GO TO PUTSs 
END 113 
PROC3 7* INTERNAL PROCEDURE */ 


DO Lest TO 103 
AC(LJ=(40)'IS'F 
END$ 

DO Lait TO 403 
ACLIBCISIIS's 
ENDS 

DO Ls4i TI 503 
ACLISCLOO) S'S 


ENDS 
GO TO PUTS} 
END JJi 
PROC? /* INTERNAL PROCEDURE */ 


DO Lei TO 103 

ACL)SC1LOOI TKS 

END? 

DCL KS CHAR(17) INITCC17)'K'DG 


DCL (NeX) FIXED BIN(16)3 Ned0s X43} 


DO L=li T3 50; 


ACL)=C(100)' ‘3 


SUBSTRCA(L)¢Ne 17) 2KS3 /* PSEUDO VARIABLE */ 
SUBSTRCA(L)+X%517)=KS5 /* PSEUDO VARIABLE */ 
N=Nw1? 
KEXe13 
ENDs 

GO TO PUTS; 

END KK3 

PROC3 7* INTERNAL PROCEDURE */ 


DO L=1 TO 103 
AC(LI=SC1LOOIILNG 
END? 

DO L=tl TI 50% 
ACLISCIS)' LS 


END3; 
GO To PUTS; 
END LL3 
PROC; /* INTERNAL PROCEDURE */ 


00 Lal TO 103 
ACL) BC1OO) IMTS 
END; 
DCL (NeX) FIXED BIN(16)3 Na/us 
DCL MS CHAR(25) INIT((C25)'M')5 
NO tsil T9 253% 
A(L)#(100)' ‘3 
SUBSTR(CACL) &Ne 25) =MS3 /* PSEUDO VARIABLE */ 
N=eNe@e; 
X=SMOD(N/5)3 
DO WHILE (X=0)3 
NaNe@13 
Xz? 
END? 
END: 
Xs253 
DO L=26 TO 503 
ACL)SA(X)3 
XaXel3 
END: 


003 


PP? 


GO TO PUTS; 
END MM; 
PROC; /* INTERNAL PROCEDURE */ 
OO L=1 TO 103 
ACLIECLOODIN'S 
END? 
OCL NS CHAR(25) INITCCA5S)IN' DE 
DCL (N-/X) FIXED BIN(16)3 
N=743 
DO L=ii TO 403 
ACL)B(100)' ‘3 
SUBSTRCACL) Ne 25) =NS3 /* PSEUDO VARIABLE 
NaNee? 
X=MND(N,S)3 
DU WHILE (X=0)3 
NaNewl?3 
Xe1s 
END? 
END3 
00 L=e41 TO 50; 
ACLISCLIOO) ING 


ENDS 
GO TO PUTS 
END NN3 
PROC; 7® INTERNAL PROCEDURE */ 


DO L=1 TO 10% 
A(L)=(100)'D'3 
END; 

DO Lali TO 403 
ACLISCISI'ATTEC7OI® FENCAS) ID's 
END; 

NO L=41 TO 503 

A(L)=(100)'O' 


END3s 

GO TO PUTS; 

END 003 

PROC /* INTERNAL PROCEDURE */ 


NO Lei TO 10% 


*/ 


ACL) EC100)'P'3 
END 
DO Laill TO 403 
ACLI=EC4O)! "LECASIIPTENC3OI" NHECIS) IPSs 
END; 
DO L241 TD 507 
ACL)BC40)' TLICOOD IPT: 
ENDs 
GO TO PUTS; 
END PP? 
QO: PROC? 7* INTERNAL PROCEDURE */ 
OO L=l TO 103 
A(LI#(100)'Q'; 
END; 
DO Ls11 TD 405 
ACLISCIS)DIQUINC7OV' TETAS TANS 
ENDs 
OO Le4t TO 508 
ACL)2(100)'a'3 
END; 
DCL QS CHAR(25) INIT((25)'')F 
OCL (NeI) FIXED BIN(16)3 Na32s Ta28F 
DO Lz26 10 40s 
SUBSTRCA(L) +N 25)598;3 7x PSEUDO VARIABLE */ 
NaNee3 
DO WHILE (LET)? 
NoNel? 
Isites 
ENDs 
ENDS 
GO TO PUTS; 
END QQ3 
RR: PROC? 7* INTERNAL PROCEDURE */ 
DO L=1 TO 103 
A(LI=ZC100)'R'G 
ENDs 
OO Ls11 19 403 
ACLISCHO)' TEPCASIIRITECIOD® TEECLSD IRN 


END; 
DO L241 TO 503 


ACLI=C4O)!' FHECOO)IR'G 

ENDS 

SUBSTR(A(25)-38,3)E(3)'R'3 7* PSEUDO VARIABLE */ 
SUBSTR(A(26), 36,5) =(5)'R'G 7x PSEUDO VARIABLE */ 
SUBSTR(A(27)533,8)=(B)'R'5 4* PSEUDO VARIABLE */ 


DCL (RS) CHAR(25) INITC C25) IR'DG 
DCL (NeXeQ) FIXED BINC16)3 N&3ls X225% Qs283 
DO L=28 TD 50; 
SURBSTRCA(L) +N, X)=RS3 7* PSEUDO VARIABLE #/ 
NEN@23 
DO WHILE (L2Q); 
N=Ne@13 
Qsate; 
END? 
END3 
DO WHILE (Ne<1)3 
Nz=is 
XBX—2e 
END? 
GO TO PUTS; 
END RRE 
PROC3 /* INTERNAL PROCEDURE */ 
DO L=!1 TO 103 
ACLISCISI'S'ITEC25)' ThtC6od'sS's 
ENDs 
00 Let! TO 403 
ACLIECA5SIISTIICA25I® MEECISDIESHENCSO)" FPECASDIS'S 
END; 
NO L=41 TO 503 
ACLIZSCSS)'StIIC30)* "HECISIIS'; 


ENDS 

GO To PUTS: 

END SS; 

PROC}; 7* INTERNAL PROCEDURE */ 


DO Lei TO 203 
ACLIECB5)! VNLECISIITS 


UUs 


VVe8 


END; 

DO Ls2i TO 303 
ACL)=(100)'T! 
END; 

O93 Ls31 TO 50% 
ACL)=(CB5S)' THICASIITSS 
ENDs 

GO TO PUTS 

END TT? 

PROC 7* INTERNAL PROCEDURE */ 

09 L=i TO 103 
A(L)#(100) tule 
ENDs 

OF Leii TO 40; 

ACLIECIS) UTS 
ENDs 

DO L#41 TO 503 

ACLIB(1LOO) ' UTS 


END: 

GO TO PUTS: 

END UU; 

PROCS 7* INTERNAL PROCEDURE */ 


DCL VS CHAR(SO) INITC((SO)'V' Ds 
DCL (N,X) FIXED BIN(16)% N=z10is xX=03 
DO Lei TO 103 
ACL)EC100)' ‘3 
SUBSTRCACL) + NeX) ESUBSTRIVS,1,X)5 7k 
N=oN@=53 
X=X453 
ENDs 
xX=503 
DO Lsil 10 253 
ACL)=(100)' "5 
SUBSTRCACLI +N, X)SSUBSTROVS,1-X)F sk 
DO WHILE (N=1)3 
NeNneS3 
Xoxe53 
END? 


PSEUDO VARTABLE */ 


PSEUDO VARIABLE */ 


10 


wWs 


XX ¢ 


N=NeS3 

END: 

X2253 

DO Le26 TO 503 
ACLIEACK)3 


X=Xel? 

ENDs 
GO TO PUTS: 
END VV3 
PROCS 7* INTERNAL PROCEDURE */ 


OD Lei TO 103 

ACLISC1OO) TWh; 

END? 

DCL (N,X) FIXED BIN(16)3 N=i3 
DCL WS CHAR(25) INIT( C25) 'wW'); 
OO L=ll TO 253 

ACL)=(100)' ‘3 


SUBSTRCACL) »Ne 25) SWS? 7* PSEUDO VARTABLE 


N=N¢e3 
X=MOD(N¢5)? 
OO WHILE (X=0)3 
N=N+13 
X21} 
END? 
END: 
X=253 
DO Le26 TO SOF 
ACLIBACK)} 


XoXel? 

END; 

GI TO PUTS 

END wwe 

PROC3 4* INTERNAL PROCEDURE */ 


DCL XS CHAR(20) INITC(20)'X')s 
OCL (NeX) FIXED BIN(16)% Nels X=5s 
DO ts! TO 5027 

A(L}#°100)' '3 


«/ 


SUBSTRCACL I) + Ne 20)5XSF /* PSEUDO VARIABLE #/ 


11 


NEN¢23 
DO WHILE (LEX); 
NeNwes 
XexeS3 
END? 
END? 
NEBL X=53 
DO Lei TO 503 
SUBSTRCA(L),N,20)=XS3 
NSNw2} 
OO WHILE (L&X); 
N=N+23 
X2x+53 
ENDs 
END? 
GO TO PUTS$ 
END XX¢ 
YY: PROC? 
OO Lei TO 507 
ACL)#(100)' "5 
END} 
DO Ls21 TO 253 
ACL)=(S55) 'y'3 
ENDs 


/* PSEUDO VARIABLE */ 


/* INTERNAL PROCEDURE */ 


DCL YS CHAR(25) INTT(C25)'Y')3 
OCL (NeXeT) FIXED BINC16)3 N=983 X=Ss 223 


DO Ls1 TO 25; 


SUBSTRCA(L) oN X) SSUBSTRCYS)1,X)3 /* PSEUDO VARTABLE */ 


NENe23 

DO WHILE (L=I)3 
Nene); 
TeIter 

END? 

XS101°NG 

IF (N<76) THEN DOs 
Xz25? 

END? 

ENDS 


12 


72: 


PUTS: 


FINS 


DO L=26 109 50; 
ACLISACX); 


Maxell; 
END: 
GO TO PUTS?3 
END YY 
PROC? 7* INTERNAL PROCEDURE */ 


DO L2l1 TO 50; 
ACLISCISIIZTUECTOIT MENC1S) Z's 
ENDS 
DCL ZS CHAR(20) INITC(C20)'Z2')3 
DCL (NeX) FIXED BIN( 16) NeEls X583 
DO Le1 TO 503 
SUBSTRCA(L) + Ne 20) 2283 7* PSEUDO 
NEN+23 
DO WHILE (L=X)3 
N=Ne2} 
XoxX+83 
END? 
END? 
GO TO PUTS; 
END 223 
09 vel TU 508 
PUT SKIP EDIT CACL)) (K015),A0100))3 
END; 
PUT SKIP(10)3 
GO TO GETSs 
END ALPHAS 


VARTABLE 4/ 
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